home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / PDraw3.0.adf / pdraw_rex.lzh / ObjecttoLayer.pdrx < prev    next >
Text File  |  1992-06-22  |  615b  |  30 lines
  1. /*
  2. @N
  3.  
  4. This Genie will move an object or a selection of objects to a particular
  5. layer on the current page
  6. */
  7.  
  8. call pdm_AutoUpdate(0)
  9. numsel = pdm_NumSelObjs()
  10. if numsel = 0 then exit_msg("Please select a group of objects first")
  11.  
  12. cpage = pdm_CurrentPage()
  13. if cpage = 0 then exit_msg("This Genie only works with objects on a page")
  14.  
  15. pobj = pdm_ClickOnObj("Click on object to put selected objects behind...")
  16. if pobj = 0 then exit_msg()
  17.  
  18. call pdm_ObjBehind(, pobj)
  19.  
  20. exit_msg()
  21.  
  22. exit_msg: procedure
  23. do
  24.    parse arg message
  25.  
  26.    if message ~= '' then call pdm_Inform(1, message,)
  27.    call pdm_AutoUpdate(1)
  28.    exit
  29. end
  30.